home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / xmasspak / video / 340400.asm < prev    next >
Encoding:
Assembly Source File  |  1995-03-19  |  1.0 KB  |  51 lines
  1. ideal
  2. model small
  3. p386n
  4. stack 256
  5.  
  6. assume cs:coding
  7.  
  8. segment  coding
  9.  
  10. start:            mov ax,000eh
  11.                   int 10h
  12.  
  13.                   mov dx,03d4h
  14.                   mov al,09h
  15.                   out dx,al
  16.                   inc dx
  17.                   in al,dx
  18.                   and al,01111111b
  19.                   out dx,al
  20.                   
  21.                   mov dx,03d4h
  22.                   mov ax,800ch
  23.                   out dx,ax
  24.  
  25.                   
  26.                   mov ax,0a000h
  27.                   mov es,ax
  28.                   assume es:0a000h
  29.  
  30.                   xor di,di
  31.                   mov cx,80/2
  32.                   mov ax,0101h
  33. copy1:            mov [es:di],ax
  34.                   mov [es:di+7cb0h],ax
  35.                   add di,2
  36.                   dec cx
  37.                   or cx,cx
  38.                   jnz copy1
  39.  
  40.                   
  41. warte:            in al,60h
  42.                   cmp al,01h
  43.                   jne warte
  44.  
  45.                   mov ax,4c00h
  46.                   int 21h
  47.  
  48. ends  coding
  49.  
  50. end start
  51.